home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
tegl6b.zip
/
INTROPAK.EXE
/
lha
/
TWWDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-06
|
849b
|
52 lines
{$M 4384,64000,256000}
{$I switches.inc}
USES
teglfont,
FastGrph,
{$IFDEF NoGr}
TGraph,
{$ELSE}
drvevga,
Graph,
{$ENDIF}
virtmem,
teglunit,
teglmain,
twcommon,
twkernel,
twwindow,
moreicon;
{$F+}
Function StdIORedraw(ifs : ImageStkPtr; ms : MsClickPtr) : Word;
VAR wf : WinFramePtr;
BEGIN
wf := FindWinFrame(ifs);
twGotoXy(wf,1,1);
Writeln('Hello world!');
Writeln('a real ',345.678:8:4);
StdIORedraw := 0;
END;
VAR wf : WinFramePtr;
BEGIN
twEasyStart;
setautorotate(true);
EmergencyExit;
SetTeglFont(@Font14);
{---------}
twCrtOn;
twInit(wf,100,100,400,300);
twSetHeader(wf,'Standard IO Window');
twSetRedraw(wf,StdIORedraw);
twCrtAssign(wf);
twDrawWindowFrame(wf);
SetAutoRotate(TRUE);
TeglSuperVisor;
END.